perm filename VEE.LOG[MF,DEK] blob sn#754230 filedate 1984-05-11 generic text, type T, neo UTF8
This is METAFONT, WAITS Version -69.0 (INIMF)  11 MAY 1984 01:06
**vee
(VEE.MF[MF,DEK]
"straight V"; % bold V using straight strokes=>"straight V"; % bold V using str
aight strokes

 =>

capheight=250;   % its height=>capheight=250;   % its height

rightedge=150;   % its width=>rightedge=150;   % its width

thickwidth=50; thinwidth=40; % stroke widths at left and right=>thickwidth=50; 
thinwidth=40; % stroke widths at left and right

delta=5;   % extra width allowed at the bottom=>delta=5;   % extra width allowe
d at the bottom

 =>

x1l=0; x1r=x1l+thickwidth;=>x1l=0; x1r=x1l+thickwidth;

x2l=x2r-thinwidth; x2r=rightedge;=>x2l=x2r-thinwidth; x2r=rightedge;

y1l=y1r=y2l=y2r=capheight;=>y1l=y1r=y2l=y2r=capheight;

y3l=y3r=y4l=y4r=0;=>y3l=y3r=y4l=y4r=0;

x3l-x1l=x2r-x4r;=>x3l-x1l=x2r-x4r;

x4r-x3l=thickwidth+delta;=>x4r-x3l=thickwidth+delta;

x3r-x3l=thickwidth; x4r-x4l=thinwidth;=>x3r-x3l=thickwidth; x4r-x4l=thinwidth;

 =>

fill z3l..z1l&z1l..z1r&z1r..z3r&z3r..z3l&cycle;=>fill z3l..z1l&z1l..z1r&z1r..z3
r&z3r..z3l&cycle;

fill z4r..z2r&z2r..z2l&z2l..z4l&z4l..z4r&cycle;=>fill z4r..z2r&z2r..z2l&z2l..z4
l&z4l..z4r&cycle;

 =>

toplabel(1l,1r,2l,2r);=>toplabel(1l,1r,2l,2r);

leftlabel(3l);=>leftlabel(3l);

rightlabel(4r);=>rightlabel(4r);

botlabel(4l,3r);=>botlabel(4l,3r);

next;=>next;

"changed to leave a notch";=>"changed to leave a notch";

 =>

notchheight=(thickwidth+thinwidth)/2;=>notchheight=(thickwidth+thinwidth)/2;

 =>

x1l=0; x1r=x1l+thickwidth;=>x1l=0; x1r=x1l+thickwidth;

x2l=x2r-thinwidth; x2r=rightedge;=>x2l=x2r-thinwidth; x2r=rightedge;

y1l=y1r=y2l=y2r=capheight;=>y1l=y1r=y2l=y2r=capheight;

y3l=y3r=0;=>y3l=y3r=0;

x3l-x1l=x2r-x3r;=>x3l-x1l=x2r-x3r;

x3r-x3l=thickwidth+delta;=>x3r-x3l=thickwidth+delta;

y4=notchheight;=>y4=notchheight;

(x4-x3l)/(x3r-x3l) = thickwidth/(thickwidth+thinwidth);=>(x4-x3l)/(x3r-x3l) = t
hickwidth/(thickwidth+thinwidth);

 =>

fill z3l..z1l&z1l..z1r&z1r{z3l-z1l}..z4-(.5,0){down}..z3l{left}&cycle;=>fill z3
l..z1l&z1l..z1r&z1r{z3l-z1l}..z4-(.5,0){down}..z3l{left}&cycle;

fill z3r..z2r&z2r..z2l&z2l{z3r-z2r}..z4+(.5,0){down}..z3r{right}&cycle;=>fill z
3r..z2r&z2r..z2l&z2l{z3r-z2r}..z4+(.5,0){down}..z3r{right}&cycle;

 =>

autolabel(1l,1r,2l,2r,3l,3r,4);=>autolabel(1l,1r,2l,2r,3l,3r,4);

next;=>next;

pausing:=0;=>pausing:=0;
The notch program was just repeated.
Now let's also do this, to finish the V:
fill z3l{up}..z4{right}..z3r{down}&z3r..z3l&cycle;=>fill z3l{up}..z4{right}..z3
r{down}&z3r..z3l&cycle;

 =>

autolabel(1l,1r,2l,2r,3l,3r,4);=>autolabel(1l,1r,2l,2r,3l,3r,4);

next;=>next;

 =>

end=>end
Output written on VEE.GF[MF,DEK] (3 characters, 3468 bytes).